(* Mathematica package *)

(*External Transfer Coefficient From Partial System Transfer Coefficients*)

(*Transfer from layer v to medium 0*) 
ExternalTransferC["v-'", "0+", AbelesSIv_, PhaseMv_, AbelesSIIv_] := (tBOT[AbelesSIv] rTOP[AbelesSIIv] (PhaseMv[[1, 1]])^(-2))/ denomv[AbelesSIv, PhaseMv, AbelesSIIv];
ExternalTransferC["v+", "0+", SIvm1_, Phivm1_, SIIvm1_] := (tBOT[SIvm1] (Phivm1[[1, 1]])^(-1))/ denomv[SIvm1, Phivm1, SIIvm1];

(*Transfer from layer v to medium k+1*) 
ExternalTransferC["v-'", "kp1-'", AbelesSIv_, PhaseMv_, AbelesSIIv_] := (tTOP[AbelesSIIv] (PhaseMv[[1, 1]])^(-1))/ denomv[AbelesSIv, PhaseMv, AbelesSIIv];
ExternalTransferC["v+", "kp1-'", SIvm1_, Phivm1_, SIIvm1_] := (tTOP[SIIvm1] rBOT[SIvm1] (Phivm1[[1, 1]])^(-2))/ denomv[SIvm1, Phivm1, SIIvm1];
ExternalTransferC[args___]/;Message[General::badargs,ExternalTransferC[args]]:="unevaluated";
